;
;  SUPPORT  --	support slide
;		(c) Copyright 1990 Chris Butler
;
;		uses cbuf 1-8 and pbuf 1

set allpsdi off
goto top
all:
set allpsdi on
top:
;video m

setrgb 0 50 50 50 1
setrgb 15 54 54 54 1
setrgb 3 10 10 10 
setrgb 4 50 50 50 1
setrgb 2 54 54 54 1

cload maximosm.clp 1 0 0
pnewbuf 1
psetbuf 1
color 4
clearscr
tile 1 0
psetbuf
PFADE 21 1

cload suppln1.clp 1 1 0
cload suppln2.clp 2 1 0
cload suppln3.clp 3 1 0
cload suppln4.clp 4 1 0
cload suppln5.clp 5 1 0
cload suppln6.clp 6 1 0
cload suppln7.clp 7 1 0
cload suppln8.clp 8 1 0

cfade 13  56 418 1 40 150
cfade 1  24 340 2 100 100
cfade 1  24 290 3 100 100
cfade 1  24 240 4 100 100
cfade 1  24 190 5 100 100
cfade 1  24 140 6 100 100 
cfade 1  24  90 7 100 100
cfade 1  24  40 8 100 100
cfree 1 2 3 4 5 6 7 8
note 100 10 10
waitkey 500


fstyle 0 
offset 0,0
if @allpsdi==on linkit
link master entry_4
linkit:
link ww.txt all
;	END SUBR SUPPORT